home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / DBman d2.adf / SENDDBF.PRG < prev   
Text File  |  1990-08-06  |  1KB  |  61 lines
  1. set procedure to
  2. set procedure to senddbf
  3. set talk off
  4. erase
  5. text
  6.  
  7.  
  8.   This is a program to copy a database file to an extended format
  9.   It will also copy the structure of the database too.
  10.   The main purpose for the is for the people converting from an older
  11.   version of dBMAN (2 or 3) and don't have the CNVV3 program.
  12.  
  13.   The first step to converting is done here. After this, go to version V
  14.   and execute the program called, "RECDBF.PRG". After this you must recreate
  15.   your index files with the INDEX [<Fi>] ON <filedlist>  TO <fileNDX> command.
  16.  
  17. endtext
  18.  
  19. wait 'Press any key to continue...'
  20. dbm_filen = space(64)
  21. do selfl
  22. if trim(dbm_filen) <> ''
  23.   erase
  24.   **convert the database
  25.   select fk
  26.   use &dbm_filen
  27.   delete file xxx.dbf
  28.   copy structure extended to xxx
  29.   select fj
  30.   use xxx
  31.   ? 'Copying the database structure...'
  32.   copy delimited to dbfstru
  33.   close
  34.   select fk
  35.   ? 'Copying the records...'
  36.   copy delimited to recinfo
  37.   beep
  38.   ? 'Done!  Now the database can be reveived by version V with the RECDBF.PRG'
  39.   wait 'press any key...'
  40. endif
  41. return
  42.  
  43.  
  44. **************
  45. procedure selfl
  46. **************
  47. erase
  48. ? ' Here are a list of dbf files in the current directory...'
  49. ?
  50. list file
  51. wait 'press any key...'
  52. @ 23,0 say 'File name to convert:' get dbm_filen
  53. read
  54. dbm_filen = trim(dbm_filen)
  55. if not file('&dbm_filen')
  56.   dbm_filen = ''
  57. endif
  58. return
  59.  
  60.  
  61.